﻿Public Class Epersona
    Private nombre As String
    Private apellido As String
    Private domicilio As String
    Private telefono As Integer
    Private dni As Integer
    Private fecha_nac As String
    Private localidad As Integer

    Public Sub New()
        InitializeComponent()
        nombre = ""
        apellido = ""
        domicilio = ""
        telefono = 0
        dni = 0
        fecha_nac = ""
        localidad = 0
    End Sub


    Public Property nompers() As String
        Get
            Return nombre
        End Get
        Set(ByVal value As String)
            nombre = value
        End Set
    End Property
    Public Property apepers() As String
        Get
            Return apellido
        End Get
        Set(ByVal value As String)
            apellido = value
        End Set
    End Property
    Public Property dompers() As String
        Get
            Return domicilio
        End Get
        Set(ByVal value As String)
            domicilio = value
        End Set
    End Property
    Public Property telpers() As Integer
        Get
            Return telefono
        End Get
        Set(ByVal value As Integer)
            telefono = value
        End Set
    End Property

    Public Property dnipers() As Integer
        Get
            Return dni
        End Get
        Set(ByVal value As Integer)
            dni = value
        End Set
    End Property
    Public Property fecha_nacpers() As String
        Get
            Return fecha_nac
        End Get
        Set(ByVal value As String)
            fecha_nac = value
        End Set
    End Property

    Public Property localpers() As Integer
        Get
            Return localidad
        End Get
        Set(ByVal value As Integer)
            localidad = value
        End Set
    End Property

    Private Sub Epersona_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
